home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
pcboard
/
ssspcb20.zip
/
UALPCB11.ZIP
/
LISTER.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-04-27
|
4KB
|
254 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Date DATE001
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
Declare Procedure PROC001()
Declare Procedure PROC002(Var String STRING001, Var String STRING002, Var String STRING003)
Declare Procedure PROC003()
;------------------------------------------------------------------------------
Goto LABEL001
End
;------------------------------------------------------------------------------
Procedure PROC001()
Integer INTEGER001
Integer INTEGER002
INTEGER001 = GetDrive()
INTEGER002 = Os()
EndProc
;------------------------------------------------------------------------------
Procedure PROC002(Var String STRING001, Var String STRING002, Var String STRING003)
STRING001 = "NO"
STRING002 = "UNREGISTERED"
STRING003 = "UNREGISTERED"
EndProc
;------------------------------------------------------------------------------
Procedure PROC003()
Color 0
Cls
AnsiPos 25, 10
Print "@X0FSHAREWARE EVALUATION VERSION"
AnsiPos 20, 12
Print "@X0ECopyright 1995,96 (c) Shuttle Software"
AnsiPos 30, 14
Print "@X0EAll Rights Reserved"
Delay 70
EndProc
:LABEL001
INTEGER003 = 0
INTEGER004 = 0
INTEGER007 = 0
INTEGER008 = 0
STRING006 = "NO"
STRING007 = ""
STRING008 = ""
STRING009 = ""
STRING010 = ""
PROC001()
If (AnsiOn()) Then
PROC002(STRING008, STRING010, STRING009)
Log "-=≡[ User Alias Lister ]≡=-", 0
Else
PrintLn "This program requires that your ANSI support is enabled!"
Wait
End
Endif
INTEGER008 = FileInf("C:\PCB\MAIN\USERS", 4) / 400
If (INTEGER008 > 0) Then
StartDisp 1
Gosub LABEL002
Else
PrintLn
PrintLn "@X8CERROR@X0C - PCBoard USERS File Indicates 0 User Records!"
PrintLn
PrintLn "@X0BThis error is probably caused by an incorrect path to the USERS file."
PrintLn
PrintLn "@X0APlease contact the author for a free custom compiled version."
PrintLn
Wait
Endif
StartDisp 2
PROC003()
End
:LABEL002
STRING006 = "NO"
INTEGER007 = 1
While (STRING006 <> "YES") Do
STRING007 = ""
Color 0
Cls
PrintLn "@X0B▐@X1B ┌─────────────────────────────────────────────────────────────────────────@X10┐@X1B @X08▌@X0B"
PrintLn "@X0B▐@X1B │@X1E User Alias Lister v1.1 @X1FRegistered To@X17: @X10│@X1B @X08▌@X0B"
PrintLn "@X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────────────┘@X1B @X08▌@X0B"
AnsiPos 49, 2
Print "@X1F", STRING009
AnsiPos 1, 4
PrintLn
PrintLn "@X0A ALIAS NAME CALLING FROM LAST DATE & TIME"
PrintLn "@X0A ─═══════════════════════════════════════════════════════════════════════════─"
For INTEGER003 = 1 To 15
If (INTEGER007 > INTEGER008) Then
STRING006 = "YES"
Break
Endif
GetAltUser INTEGER007
STRING004 = U_Alias
STRING005 = U_City
DATE001 = U_LDate()
INTEGER006 = Hour(U_LTime())
INTEGER005 = Min(U_LTime())
If (STRING004 == "") STRING004 = "NONE"
If (STRING005 == "") STRING005 = "NONE"
INTEGER004 = INTEGER003 + 6
AnsiPos 3, INTEGER004
Print "@X08........................................................................."
If (STRING004 == "NONE") Then
AnsiPos 3, INTEGER004
Print "@X0C", STRING004
Else
AnsiPos 3, INTEGER004
Print "@X0F", STRING004
Endif
If (STRING005 == "NONE") Then
AnsiPos 32, INTEGER004
Print "@X0C", STRING005
Else
AnsiPos 32, INTEGER004
Print "@X0E", STRING005
Endif
AnsiPos 62, INTEGER004
Print "@X0B", DATE001
AnsiPos 73, INTEGER004
PrintLn "@X0B", INTEGER006, ":", INTEGER005
INTEGER007 = INTEGER007 + 1
Next
If (STRING006 <> "YES") Then
PrintLn
Print "@X0A Press [@X0FQ@X0A]uit or [@X0FENTER@X0A] to continue..."
InputText " ", STRING007, 15, 1
If (Upper(STRING007) == "Q") STRING006 = "YES"
Continue
Endif
PrintLn
Wait
EndWhile
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 3 End
; 2 Cls
; 3 Wait
; 2 Color
; 17 Goto
; 31 Let
; 11 Print
; 17 PrintLn
; 11 If
; 2 StartDisp
; 1 Log
; 1 Gosub
; 1 Return
; 1 Delay
; 1 InputText
; 12 AnsiPos
; 1 GetAltUser
; 3 EndProc
;
;
; ■ Functions used :
;
; 1 /
; 3 +
; 5 ==
; 2 <>
; 1 <
; 1 <=
; 2 >
; 2 >=
; 8 !
; 2 &&
; 1 ||
; 1 Upper()
; 1 U_LDate()
; 2 U_LTime()
; 1 Hour()
; 1 Min()
; 1 AnsiOn()
; 1 FileInf()
; 1 GetDrive()
; 1 Os()
;
;------------------------------------------------------------------------------
;
; Analysis flags : R
;
; R - Read user ■ 5
; User records are read, this may signify that someone wants to get
; various informations about a user (for example his password), but
; this may also be normal for a program accessing user records (for
; example a User Editor)
; ■ Search for : GETALTUSER
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 1 While/EndWhile
; 6 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------